home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / muint_pr.lha / Figlet / Figlet.def < prev    next >
Text File  |  1995-06-24  |  4KB  |  119 lines
  1. STACK 8000
  2.  
  3. ;     SCRIPT FILENAME: Figlet.def            
  4. ;     DATE           : 02-01-95 
  5. ;     AUTHOR         : Colin Thompson
  6. ;     DESCRIPTION    : Displays figlet text in a window, or sends it to
  7. ;                      your text editor.   
  8.  
  9.  
  10.  
  11.  
  12. ;=====  SEE IF THE MASTER LIST OF FONTS EXISTS  ======================
  13.  
  14.  
  15. IF NOT EXISTS >NIL: MASTER.LIST
  16.  
  17.  
  18. ;=====  SEE IF THE FONTS ARE INSTALLED IN LIBS:FIGLETFONTS  ===========
  19.  
  20.      IF NOT EXISTS LIBS:FIGLETFONTS
  21.           RTEZREQUEST "FIGLET:" "THE FIGLET FONTS ARE NOT INSTALLED\nIF YOU INTEND TO USE AMIGA FIGLET\nFROM THE SHELL, YOU MUST INSTALL THE FONTS" BUTTONTEXT "_INSTALL FONTS PERMANENTLY|_DON'T INSTALL NOW" DEFAULT 0
  22.           SETENV RESULT $RC
  23.      
  24.           IF $RESULT EQ 0
  25.                SETENV LOCATION figletfonts
  26.                LIST >MASTER.LIST $LOCATION  lformat "%N" 
  27.           ELSE
  28.                ECHO "WORKING..." NOLINE
  29.                COPY FIGLETFONTS TO LIBS:FIGLETFONTS QUIET
  30.                RTEZREQUEST "FIGLET:" "THE FONTS ARE INSTALLED IN LIBS:FIGLETFONTS.\nYOU MAY NOW USE FIGLET FROM THE SHELL." BUTTONTEXT "_CONTINUE"
  31.                SETENV LOCATION "libs:figletfonts"
  32.                LIST >MASTER.LIST $LOCATION  lformat "%N" 
  33.           ENDIF
  34.      ELSE
  35.           SETENV LOCATION "LIBS:FIGLETFONTS"
  36.           LIST >MASTER.LIST $LOCATION  lformat "%N" 
  37.      ENDIF
  38.  
  39. ELSE
  40.  
  41.      IF EXISTS LIBS:FIGLETFONTS
  42.           SETENV LOCATION "LIBS:FIGLETFONTS"
  43.      ELSE
  44.           SETENV LOCATION figletfonts
  45.      ENDIF
  46.  
  47. ENDIF
  48.  
  49. ;====================  SET UP SOME VARIABLES  ========================
  50.  
  51. SETENV FIGTEXT "Testing"
  52. ECHO >RAM:FIG $FIGTEXT
  53.  
  54. ;================   WRITE THE BUTTON FILE TO RAM: ====================
  55.  
  56. echo  >ram:FIG.buttons "     DISPLAY    ;EXECUTE F.CONV.scp []"
  57. echo >>ram:FIG.buttons " SEND TO EDITOR ;EXECUTE F.editor.scp"
  58. echo >>ram:FIG.buttons "UPDATE FONT LIST;EXECUTE F.update.scp"
  59. echo >>ram:FIG.buttons "      HELP      ;TextWin Figlet F.help.txt"
  60. echo >>ram:FIG.buttons "    SEE FONTS   ;Textwin Figlet F.fontpage.txt"
  61. echo >>ram:FIG.buttons "    READ DOCS   ;TextWin Figlet F.Figlet.doc"
  62. echo >>ram:FIG.buttons "   PRINT DOCS   ;EXECUTE F.print.scp"
  63. echo >>ram:FIG.buttons "      QUIT      "
  64.  
  65. ;=================   WRITE THE RADIO FILE TO RAM: ====================
  66.  
  67. echo  >ram:FIG.radio "Justify;Left;-l|Center;-c|Right;-r|By Dir.;-x"                  
  68. echo >>ram:FIG.radio "Direction;Default;-X|L to R;-L|R to L;-R"
  69. echo >>ram:FIG.radio "Width;80;|60;-w 60|40;-w 40|20;-w 20|1;-w 1"
  70. echo >>ram:FIG.radio "Line Mode;One Line;|Paragraph;-p"
  71. echo >>ram:FIG.radio "Smush Mode;Default;-m-2|No Smushing;-m-1|Kern Only;-m0|Checkboxs->;B"
  72.  
  73. ;=================   WRITE THE CYCLE FILE TO RAM: ====================
  74.  
  75. echo >ram:FIG.cycle "Language;English;-E|Deutsch;-D"
  76.  
  77. ;================   WRITE THE CHECKBOX FILE TO RAM: ==================
  78.  
  79. echo  >ram:FIG.checkbox "Eq Chars  ;+ 1"
  80. echo >>ram:FIG.checkbox "Underscore;+ 2"
  81. echo >>ram:FIG.checkbox "Hierarchy ;+ 4"
  82. echo >>ram:FIG.checkbox "Op Pairs I;+ 8"
  83. echo >>ram:FIG.checkbox "Op PairsII;+ 16"
  84. echo >>ram:FIG.checkbox "Hardblanks;+ 32"
  85.  
  86. ;================   WRITE THE STRING FILE TO RAM: ==================
  87.  
  88. echo  >ram:FIG.string "string0;Enter Text;100;100;$FIGTEXT"
  89.  
  90. ;================   WRITE THE DEFINITION FILE TO RAM: ================
  91.  
  92. echo   >ram:FIG.cl "BEGIN"
  93. echo  >>ram:FIG.cl "TITLE    *"Amiga Figlet by BOTH Software *"" 
  94. echo  >>ram:FIG.cl "LV       MASTER.LIST MULTI SORT"
  95. echo  >>ram:FIG.cl "RADIO    ram:FIG.radio"
  96. echo  >>ram:FIG.cl "STRING   ram:FIG.string"
  97. echo  >>ram:FIG.cl "CYCLE    ram:FIG.cycle"
  98. echo  >>ram:FIG.cl "BUTTONS  ram:FIG.buttons"
  99. echo  >>ram:FIG.cl "CHECKBOX ram:FIG.checkbox"
  100. echo  >>ram:FIG.cl "NAME FIGLET"
  101. echo  >>ram:FIG.cl "END"
  102.  
  103.  
  104. MUInt ram:FIG.cl 
  105.  
  106. DELETE ram:FIG#? QUIET
  107.  
  108. IF EXISTS ENV:FIG
  109.    DELETE ENV:FIG   QUIET
  110. ENDIF
  111.  
  112. IF EXISTS ENV:LOCATION
  113.    DELETE ENV:LOCATION   QUIET
  114. ENDIF
  115.  
  116. QUIT
  117.  
  118.  
  119.